home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / b-block1.lha / BootBoy.s < prev    next >
Encoding:
Text File  |  1980-01-01  |  4.1 KB  |  229 lines
  1. ; dc.w    $444f
  2. ; subq.b  #1,D0
  3.  
  4. ; sbcd    -(A2),-(A0)
  5. GEIL: 
  6. move.l  0(A0,D0.W),112(A1,D0.W)
  7.  bsr.l   START
  8.  move.l  $000004,A6
  9.  lea     DOSNAME(PC),A1
  10.  jsr     -96(A6)  ;duplock
  11.  move.l  D0,A0
  12.  move.l  22(A0),A0
  13.  moveq   #$00,D0
  14.  rts
  15.  
  16. DOSNAME: dc.b "dos.library",0
  17.  
  18. START:
  19. move.l  #$00010002,D1
  20.  move.l  #$000206f8,D0
  21.  move.l  $0004,A6
  22. jsr     -198(A6)  ;delay
  23.  tst.l   D0
  24.  beq.l   NICKI
  25. move.l  A5,D1
  26.  move.l  D0,A5
  27. move.l  D1,16(A5)
  28.  move.l  D0,(A5)
  29.  move.l  D0,4(A5)
  30.  move.l  D0,8(A5)
  31.  move.l  D0,12(A5)
  32. addi.l  #$00000028,(A5)
  33. addi.l  #$00000410,4(A5)
  34.  addi.l  #$00003210,8(A5)
  35.  addi.l  #$000206d0,12(A5)
  36.  lea     COPPER(PC),A1
  37.  move.l  12(A5),8(A1)
  38.  lea     TANJA(PC),A1
  39.  move.w  4(A5),4(A1)
  40. move.w  6(A5),10(A1)
  41.  move.w  $dff002,20(A5)
  42.  move.w  #$8380,$dff096
  43. move.w  #$0020,$dff096
  44. move.w  #$4000,$dff09a
  45.  bsr.l   SEPP
  46. move.l  $000004,A6
  47.  lea     GFXNAME(PC),A1
  48.  jsr     -408(A6) ;oldopenlibrary
  49.  move.l  D0,A6
  50.  move.l  (A5),A1
  51.  jsr     -198(A6) ;initrastport
  52. lea     COPPER(PC),A0
  53.  move.l  (A5),A1
  54.  move.l  A0,4(A1)
  55. STOP:          
  56. lea     COPPER1(PC),A0
  57.  clr.w   (A0)
  58.  lea     TEXT(PC),A0
  59.  lea     COPPER5(PC),A1
  60.  move.l  A0,(A1)
  61.  move.l  (A5),A1
  62.  move.l  #$00000001,D0
  63.  jsr     -354(A6)  ;setdrmd
  64. TTTT:
  65.  move.l  (A5),A1
  66.  clr.l   D0
  67.  move.l  #$00000006,D1
  68.  jsr     -240(A6)  ;move
  69.  move.l  (A5),A1
  70.  lea     COPPER5(PC),A2
  71.  move.l  (A2),A0
  72.  move.l  #$00000002,D0
  73.  jsr     -60(A6)  ;text
  74. MIST:
  75.  btst    #6,$bfe001
  76.  beq.l   SONJA
  77.  move.w  $dff004,D0
  78. swap    D0
  79. move.w  $dff006,D0
  80.  asr.l   #8,D0
  81.  andi.w  #$01ff,D0
  82.  cmp.w   #$00ce,D0
  83.  bne.l   MIST
  84.  move.l  4(A5),A0
  85.  adda.l  #$0000178a,A0
  86.  move.l  12(A5),A1
  87.  move.l  #$00000007,D0
  88. FUCK:
  89.  roxl.w  (A1)+
  90.  bcc.l   ROT
  91.  ori.w   #$000f,-2(A0)
  92.  ori.w   #$000f,44(A0)
  93. ori.w   #$000f,90(A0)
  94.  ori.w   #$000f,136(A0)
  95.  bra.l   TOP
  96. ROT:
  97.  andi.w  #$fff0,-2(A0)
  98.  andi.w  #$fff0,44(A0)
  99.  andi.w  #$fff0,90(A0)
  100. andi.w  #$fff0,136(A0)
  101. TOP:
  102. adda.l  #$000000b8,A0
  103.  dbf     D0,FUCK
  104.  move.l  A0,A1
  105.  move.l  #$00000003,D0
  106. PIS:
  107. move.l  A1,A0
  108. move.l  #$000002df,D1
  109. addi.l  #$00000000,D1
  110. WEIS:
  111.  roxl.w  -(A0)
  112.  dbf     D1,WEIS
  113.  dbf     D0,PIS
  114. lea     COPPER1(PC),A0
  115. addi.w  #$0001,(A0)
  116. cmpi.w  #$0009,(A0)
  117. bne.l   MIST
  118. clr.w   (A0)
  119. lea     COPPER5(PC),A0
  120. addi.l  #$00000001,(A0)
  121. move.l  (A0),A1
  122.  cmpi.b  #$00,(A1)
  123.  beq.l   STOP
  124. bra.l   TTTT
  125. SONJA:
  126.  move.w  #$c000,$dff09a
  127. move.w  #$7fff,$dff096
  128.  move.l  #$ffffffff,D0
  129. ANJA:
  130.  dbf     D0,ANJA
  131.  move.l  38(A6),$dff080
  132.  ori.w   #$8000,20(A5)
  133.  move.w  20(A5),$dff096
  134.  move.l  A5,A1
  135.  move.l  16(A5),A5
  136.  move.l  #$000206f8,D0
  137.  move.l  $0004,A6
  138. jsr     -210(A6)  ;freemem
  139.  rts
  140. SEPP:
  141.  move.l  8(A5),A0
  142.  move.l  #$0000001f,D6
  143. MOOS:
  144.  bsr.l   TANJA
  145. move.l  A0,D5
  146.  addi.l  #$0000000c,D5
  147.  move.w  #$0082,(A0)+
  148.  move.w  D5,(A0)+
  149.  swap    D5
  150.  move.w  #$0080,(A0)+
  151.  move.w  D5,(A0)+
  152.  move.l  #$fffffffe,(A0)+
  153.  dbf     D6,MOOS
  154. move.w  8(A5),-6(A0)
  155.  move.w  10(A5),-10(A0)
  156.  move.l  8(A5),$dff080
  157.  lea     $dff000,A0
  158. move.w  #$2c71,142(A0)
  159.  move.w  #$2ce1,144(A0)
  160.  move.w  #$0024,260(A0)
  161.  move.w  #$0028,146(A0)
  162.  move.w  #$00d8,148(A0)
  163. clr.w   258(A0)
  164.  clr.l   264(A0)
  165.  rts
  166. TANJA:
  167.  move.l  #$00e00003,(A0)+
  168.  move.l  #$00e28730,(A0)+
  169.  move.l  #$01001200,(A0)+
  170. move.l  #$2021fffe,D0
  171.  move.l  #$0021fffe,D2
  172. bsr.l   KIES
  173.  move.l  #$ffdffffe,(A0)+
  174. move.l  #$2b21fffe,D2
  175.  move.l  #$0021fffe,D0
  176. bsr.l   RRRR
  177. lea     COP6(PC),A3
  178.  lea     COPPER(PC),A1
  179.  move.w  -2(A1),D2
  180.  move.w  #$001f,D7
  181. SHIT:
  182.  move.w  -4(A1),-(A1)
  183.  dbf     D7,SHIT
  184.  move.w  D2,(A3)
  185.  rts
  186. KIES:
  187.  lea     COP6(PC),A1
  188.  lea     COPPER(PC),A2
  189. RRRR:
  190. cmp.l   D2,D0
  191.  beq.l   NICKI
  192.  move.w  #$0180,D1
  193.  move.w  #$0182,D4
  194. swap    D4
  195.  swap    D1
  196.  move.w  (A1),D4
  197.  not.w   D4
  198. move.w  (A1)+,D1
  199.  move.l  D0,(A0)+
  200. move.l  D1,(A0)+
  201.  move.l  D4,(A0)+
  202. addi.l  #$01000000,D0
  203.  cmpa.l  A2,A1
  204.  beq.l   KIES
  205.  bra.l   RRRR
  206. NICKI:
  207.  rts
  208.  
  209. COP6:
  210. dc.l $fffffff1, $fff1fff3 
  211. dc.l $fff3fff5, $fff5fff7, $fff8fff8, $fff9fff9 
  212. dc.l $fffbfffb, $fffcfffe, $fffffffd, $fffcfff9 
  213. dc.l $fff7fff5, $fff4fff3, $fff3fff2, $fff2fff1 
  214. dc.l $fff1fff0, $fff0fff0  
  215.  
  216. COPPER: dc.w $0002,$000a,$0001,$0000,$0005,$89f0
  217.  
  218.  
  219. GFXNAME: dc.b "graphics.library",0
  220.  
  221. even
  222. COPPER1: dc.w $0000,$0003
  223.  
  224. COPPER5: dc.w $0001,$f42c 
  225.  
  226. TEXT:
  227. dc.b "Contact <THE SLEDGE>  FOR BRANDNEW STUFF IN PLK056056"
  228. dc.b "B  8100 GARMISCH-PART.       ",0
  229.